home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 059 (1988-05-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 059 (1988-05-15)(Ossowski, Stefan)(DE)(PD).adf
/
Haushaltsbuch V1.0
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1988-04-22
|
506b
|
27 lines
' Ladeprogramm fuer HHB V1.0
ON BREAK GOSUB Ende:BREAK ON
ON ERROR GOTO Errormeldung
clearsumme&=125000
IF FRE(-1) > 250000 THEN clearsumme&=FRE(-1)-150000
IF clearsumme&>200000 THEN clearsumme&=200000
CLEAR ,clearsumme&
LOAD "Haushaltssystem/HHB V1.0",r
SYSTEM
Errormeldung:
IF ERR=7 OR ERR=14 THEN
CLS
LOCATE 12,14:PRINT "Das war es auch schon. Viel zu wenig Speicher frei !"
RESUME Ende
END IF
ON ERROR GOTO 0
Ende:
LOCATE 20,24:PRINT "Drücken Sie die Linke Maustaste"
WHILE MOUSE(0)<>-1 :WEND
SYSTEM